##############################################################################################
#  Copyright (C) 2007 [F.G. Hattingh]																			#
#																															#
#	 This program is free software; you can redistribute it and/or modify							
#	it under the terms of the GNU General Public License as published by								
#	the Free Software Foundation; either version 3 of the License, or									
#	(at your option) any later version.																			#	
#																															#
#	This program is distributed in the hope that it will be useful,											
#	but WITHOUT ANY WARRANTY; without even the implied warranty of										
#	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the										
#	GNU General Public License for more details.																#
#																															#
#	You should have received a copy of the GNU General Public License										
#	along with this program; if not, write to the Free Software											
#	Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA							
#																															#
#	Contact me at: hattinghfg@tut.ac.za																	#
#																															#
# This lib will help you write applications that work with the MXIT protocoll							
# Contains information about each Contact 																	#																														#	
#																															#
##############################################################################################

package Contact;

sub new 
{
my $class = shift;
my %parm = @_;
my $self  = {};
$self->{GROUP} = $parm{'Group'}; #The contacts group
$self->{HOST} = $parm{'Host'}; #The contacts host
$self->{NICK} = $parm{'Nick'}; #The contacts nick
$self->{NUM1} = $parm{'Num1'}; #Need to find out what the rest stands for
$self->{NUM2} = $parm{'Num2'};  
$self->{NUM3} = $parm{'Num3'}; 
$self->{INVITE} = $parm{'Invite'}; #If set to one this is a contact for which a invite is outstanding
$self->{STATUS} = $parm{'Status'}; #Is the contact online ofline...
$self->{MOOD} = $parm{'Mood'}; #What is the mood happy sad...

bless ($self, $class);
return $self;
}

1;
